home *** CD-ROM | disk | FTP | other *** search
! ----------------------------------------------------- ! TELENET.ALCL ! By: David Steinberg ! Phone = 893-2605 @1200 893-2712 @2400 ! Phone = 1-800-546-1000 ! ! Date:June 20, 1989 ! Rev: 5.00 !Changed 6/21/89 by DMC: Assume "CONNECT" means 1200 baud. !Changed 7/27/89 by DMC To give new busy message when line is busy !Changed 9/13/89 by DMC to set modem to extended command set !Changed 9/19/89 by DMC to show error codes !---------------------------------------------------------------------- ! ! Connect Sequence: ! -LABEL 0 Revsion 5 DsplyMsg Initializing modem. CanBtn 19 { if cancel button - just exit } SetTries 0 ChrDelay 2 SerReset ~BAUD 0 8 1 HSReset 0 0 17 19 DsplyPic 1 ! !---------------------------------------------------------------------- ! -LABEL 1 { wake up the modem } Flush ! MatchStr 1 2 +++ { In case we match dont wait for the full time} MatchStr 2 2 OK MatchStr 3 2 > { Special case for Avatex 1200 modems} Xmit +++ { Get the modems attention} Wait 200 { Pause for 2 seconds, minimum gap required} ! -Label 2 MatchStr 1 3 OK MatchStr 2 33 NO { Cant hangup} MatchStr 3 33 ERROR { Command error} MatchStr 4 3 > { Special case for Avatex 1200 modems} ! Pause 40 { Allow modem to settle between commands.} Xmit ATZ\13 ! { jump to label #3 if we see 'OK' go by } Wait 200 { wait for 'OK' from modem - fall thru if timeout } Jump 33 { Exit stage left...time out error on modem.} ! !---------------------------------------------------------------------- ! -LABEL 3 { just saw 'OK'-Set modem to x1 } ! MatchStr 1 4 OK MatchStr 2 4 ERROR {We don't care what we get for this one} ! Pause 40 { Allow modem to settle between commands.} Xmit ATE1Q0X1\13 -LABEL 4 { Now try to dial } DsplyMsg Dialing ~FONE ! !Changed 6/21/89 by DMC: Assume "CONNECT" means 1200 baud. MatchStr 1 6 CONNECT\13 MatchStr 2 5 CONNECT 300 MatchStr 3 6 CONNECT 1200 MatchStr 4 12 CONNECT 2400 {If there using an MNP modem at dial at say 9600 and connect} MatchStr 5 12 CONNECT 4800 {at 1200/300 then there screwed for now.} MatchStr 6 12 CONNECT 9600 MatchStr 7 33 NO DIAL MatchStr 8 27 NO ANSWER MatchStr 9 33 VOICE MatchStr 10 33 CARRIER MatchStr 11 26 BUSY MatchStr 12 33 ERROR ! SetTries 0 CanBtn 18 { if cancel button hit, hangUp then exit } Pause 30 Xmit AT~MSTR D~TONE~FONE\13 ! { jump to label #13 if match } Wait 2400 { wait 30 seconds for CONNECT msg from modem } ! ! MatchStr 1 7 2400 {We'll couldn't match, But maybe were using an MNP modem.} MatchStr 2 8 4800 {We could encounter some confusion with number dialed here.} MatchStr 3 9 9600 {Dont check for 300,1200 due to this confusion.} ! {Plus MNP modems may talk at a higher baud rate then there connect at.} ! Wait 30 Jump 27 { else hang up phone & exit } ! !---------------------------------------------------------------------- ! -Label 5 SerReset 300 0 8 1 Pause 20 FLUSH Jump 12 ! ! -Label 6 SerReset 1200 0 8 1 Pause 20 FLUSH Jump 12 ! ! -Label 7 SerReset 2400 0 8 1 Pause 20 FLUSH Jump 12 ! -Label 8 SerReset 4800 0 8 1 Pause 20 FLUSH Jump 12 ! -Label 9 SerReset 9600 0 8 1 Pause 20 FLUSH Jump 12 ! ! ! !---------------------------------------------------------------------- ! -LABEL 12 { Modem just sent 'CONNECT' message } DsplyPic 2 ! -LABEL 13 { Establishing Connection } Pause 30 ChrDelay 20 Cond \13D\13 { 300 baud } Cond \13D\13 {1200 baud } Cond @D\13 {2400 baud } Cond @D\13 {4800 baud } Cond @D\13 {9600 baud } ! ! MatchStr 1 15 = MatchStr 2 33 ? {Command error} MatchStr 3 32 LOCAL {Net Busy} MatchStr 4 16 @ {Skip the D1, missed the = sign} ! Xmit ~SYNC Wait 600 {Try to sync up to four times} IncTries IfTries 4 32 Jump 13 ! !---------------------------------------------------------------------- ! -LABEL 15 { = for term ID} ! Sending Terminal Identifier ! ChrDelay 2 MatchStr 1 16 @ MatchStr 2 33 ? {Command error} MatchStr 3 20 = {800 number dialing.} Pause 20 Xmit D1\13 ! Wait 600 Jump 32 ! !---------------------------------------------------------------------- ! -LABEL 16 { @ for Host num} ! Sending MacLink node number. ! MatchStr 1 17 CONNECTED MatchStr 2 33 ? {Command error} MatchStr 3 32 NOT RESP {Applelink down} MatchStr 4 32 AVAIL {Applelink down} MatchStr 5 32 REJECT {Applelink down} MatchStr 6 33 LOCAL {Net busy} MatchStr 7 33 ERROR {Command error} MatchStr 8 33 DISCONNECT {Invalid node} MatchStr 9 33 NOT PERMIT {Access via wats line.} ! Pause 20 Xmit C ~TLN1\13 Wait 900 Jump 32 ! !---------------------------------------------------------------------- ! -LABEL 17 { System Ready ... All is well } Exit 0 ! !---------------------------------------------------------------------- ! -Label 18 { User aborted sequence } Hangup Exit -111 ! -Label 19 { User aborted sequence...dont need to hang up thou} Exit -111 !---------------------------------------------------------------------- ! -Label 20 {800 number sequence.} Pause 30 ! MatchStr 1 16 @ MatchStr 2 33 ? {Command error} MatchStr 3 20 = {800 number dialing.} ! Xmit ~TLN2\13 Wait 600 Jump 32 ! ! !---------------------------------------------------------------------- ! -Label 26 {Busy phone} Talert All phone lines are currently busy. \13Please wait a few minutes and try again.\13 Jump 36 ! !---------------------------------------------------------------------- ! ! ! -Label 27 {No Answer} Talert There is no answer from the access company (Error # 3).\13Verify the access number and try again.\13 Jump 36 ! !---------------------------------------------------------------------- ! -Label 28 {Noisy line} Talert There is noise on your phone line (Error # 16).\13Please try again.\13 Jump 36 ! !---------------------------------------------------------------------- ! -Label 29 {acct bad} Talert Unable to verify account information (Error # 22).\13\13 Jump 36 ! !---------------------------------------------------------------------- ! -Label 30 {disk problem} Talert There was an error in reading your ~APPL disk (Error # 0).Please try again.\13 Jump 36 ! !---------------------------------------------------------------------- ! -Label 31 {acct aleady on} Talert Please wait a few minutes and try again (Error # 23).\13\13 Jump 36 ! !---------------------------------------------------------------------- ! -Label 32 {not_avail} Talert ~APPL is not available at the moment (Error # 20).\13Please wait a few minutes and try again.\13\13 Jump 36 ! !---------------------------------------------------------------------- ! -Label 33 {generic} Talert Unable to initialize modem (Error # 1). Please take the following steps:\13\13 1) Turn your modem off, then back on.\13 2) Verify the access number.\13 3) Make sure that your modem and phone line are connected correctly.\13 4) Try again. Jump 36 ! !---------------------------------------------------------------------- ! -Label 34 {db_error} Talert There is a bad ~APPL file on your disk (Error # 0).\13\13 Jump 36 ! !---------------------------------------------------------------------- ! -Label 35 Exit -1 ! -Label 36 Alert 35 \13If the problem persists, call ~APPL customer service at ~ACUS. Exit -1 !---------------------------------------------------------------------- ! *-Label 0 {Hangup Sequence} *CanBtn 2 ! *Flush ! *MatchStr 1 1 OK { Dont look for an echo first time, maybe a} *MatchStr 2 1 NO { false echo. Any type of match is good} *MatchStr 3 1 > { Special case for Avatex 1200 modems} ! *Xmit +++ {Try and get the modems attention} *Wait 210 ! *MatchStr 1 1 OK *MatchStr 2 2 CARRIER {Any type of match is good} *MatchStr 3 1 +++ *MatchStr 4 1 > { Special case for Avatex 1200 modems} ! *Xmit +++ {Double our odds} *Wait 210 ! *-Label 1 *MatchStr 1 2 ERROR *MatchStr 2 2 OK *MatchStr 3 2 CARRIER *MatchStr 4 2 > { Special case for Avatex 1200 modems} ! *Pause 40 *Xmit AT H\13 *Wait 300 ! *-Label 2 *Exit 0 ! ### 
